home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_13_1986_Transactor_Publishing.d64 / display t&s (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  297b  |  10 lines
  1. 10 open 15,8,15,"i0": close 15
  2. 20 open 1,8,3,"$0"
  3. 30 for i=1 to 254: get#1,a$: next
  4. 40 f$="":m=m+1:get#1,a$,t$,s$:t$=t$+chr$(0):s$=s$+chr$(0)
  5. 50 for i=1 to 16: get#1,a$: f$=f$+a$: next
  6. 60 for i=1 to 10: get#1,a$: next: if st<>0 then close 1: end
  7. 70 if t$<>chr$(0) then print f$"  t="asc(t$)" s="asc(s$)
  8. 80 get#1,a$: if m<8 then get#1,a$,a$: goto 40
  9. 90 m=0: goto 40
  10.